/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / apel / emu-xemacs.elc.z / emu-xemacs.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 34 36 3a 30 34 20 31 | 39 39 38 0a 3b 3b 3b 20 |:46:04 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 61 70 65 6c |s-20.3/l|isp/apel|
|000000a0| 2f 65 6d 75 2d 78 65 6d | 61 63 73 2e 65 6c 0a 3b |/emu-xem|acs.el.;|
|000000b0| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000c0| 20 32 30 2e 34 20 22 45 | 6d 65 72 61 6c 64 22 20 | 20.4 "E|merald" |
|000000d0| 58 45 6d 61 63 73 20 20 | 4c 75 63 69 64 2e 0a 3b |XEmacs  |Lucid..;|
|000000e0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000f0| 69 6f 6e 20 32 2e 32 35 | 20 58 45 6d 61 63 73 3b |ion 2.25| XEmacs;|
|00000100| 20 32 32 2d 4d 61 72 2d | 39 36 2e 0a 3b 3b 3b 20 | 22-Mar-|96..;;; |
|00000110| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|00000120| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|00000130| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000140| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000150| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 39 2e 0a 0a |t in Ema|cs 19...|
|00000160| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000170| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000180| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000190| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|000001a0| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|000001b0| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion)..  |   (stri|
|000001c0| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|000001d0| 65 72 73 69 6f 6e 20 22 | 32 30 22 29 29 29 0a 20 |ersion "|20"))). |
|000001e0| 20 20 20 28 65 72 72 6f | 72 20 22 60 65 6d 75 2d |   (erro|r "`emu-|
|000001f0| 78 65 6d 61 63 73 2e 65 | 6c 27 20 77 61 73 20 63 |xemacs.e|l' was c|
|00000200| 6f 6d 70 69 6c 65 64 20 | 66 6f 72 20 45 6d 61 63 |ompiled |for Emac|
|00000210| 73 20 32 30 22 29 29 0a | 0a 28 6f 72 20 28 62 6f |s 20")).|.(or (bo|
|00000220| 75 6e 64 70 20 27 63 75 | 72 72 65 6e 74 2d 6c 6f |undp 'cu|rrent-lo|
|00000230| 61 64 2d 6c 69 73 74 29 | 20 28 73 65 74 71 20 63 |ad-list)| (setq c|
|00000240| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00000250| 20 6e 69 6c 29 29 0a 0a | 0a 28 62 79 74 65 2d 63 | nil))..|.(byte-c|
|00000260| 6f 64 65 20 22 c0 c1 21 | ac 85 c2 c1 c3 5c 22 88 |ode "..!|.....\".|
|00000270| c4 c1 20 73 ac 89 c0 c5 | 21 ab 84 c5 c4 21 88 c6 |.. s....|!....!..|
|00000280| c4 21 ac 85 c7 c4 c8 5c | 22 88 c9 ca cb 8f 87 22 |.!.....\|"......"|
|00000290| 20 5b 66 62 6f 75 6e 64 | 70 20 66 61 63 65 2d 6c | [fbound|p face-l|
|000002a0| 69 73 74 20 64 65 66 61 | 6c 69 61 73 20 6c 69 73 |ist defa|lias lis|
|000002b0| 74 2d 66 61 63 65 73 20 | 75 6e 64 65 72 6c 69 6e |t-faces |underlin|
|000002c0| 65 20 6d 61 6b 65 2d 66 | 61 63 65 20 66 61 63 65 |e make-f|ace face|
|000002d0| 2d 64 69 66 66 65 72 73 | 2d 66 72 6f 6d 2d 64 65 |-differs|-from-de|
|000002e0| 66 61 75 6c 74 2d 70 20 | 73 65 74 2d 66 61 63 65 |fault-p |set-face|
|000002f0| 2d 75 6e 64 65 72 6c 69 | 6e 65 2d 70 20 74 20 65 |-underli|ne-p t e|
|00000300| 72 72 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |rr (byte|-code ".|
|00000310| c1 21 87 22 20 5b 72 65 | 71 75 69 72 65 20 6f 76 |.!." [re|quire ov|
|00000320| 65 72 6c 61 79 5d 20 32 | 29 20 28 28 65 72 72 6f |erlay] 2|) ((erro|
|00000330| 72 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |r (byte-|code "..|
|00000340| c2 5c 22 88 c0 c3 c4 5c | 22 88 c0 c5 c6 5c 22 88 |.\"....\|"....\".|
|00000350| c7 c8 4d 87 22 20 5b 64 | 65 66 61 6c 69 61 73 20 |..M." [d|efalias |
|00000360| 6d 61 6b 65 2d 6f 76 65 | 72 6c 61 79 20 6d 61 6b |make-ove|rlay mak|
|00000370| 65 2d 65 78 74 65 6e 74 | 20 6f 76 65 72 6c 61 79 |e-extent| overlay|
|00000380| 2d 70 75 74 20 73 65 74 | 2d 65 78 74 65 6e 74 2d |-put set|-extent-|
|00000390| 70 72 6f 70 65 72 74 79 | 20 6f 76 65 72 6c 61 79 |property| overlay|
|000003a0| 2d 62 75 66 66 65 72 20 | 65 78 74 65 6e 74 2d 62 |-buffer |extent-b|
|000003b0| 75 66 66 65 72 20 6d 6f | 76 65 2d 6f 76 65 72 6c |uffer mo|ve-overl|
|000003c0| 61 79 20 23 5b 28 65 78 | 74 65 6e 74 20 73 74 61 |ay #[(ex|tent sta|
|000003d0| 72 74 20 65 6e 64 20 26 | 6f 70 74 69 6f 6e 61 6c |rt end &|optional|
|000003e0| 20 62 75 66 66 65 72 29 | 20 22 c0 09 5c 6e 0b 23 | buffer)| "..\n.#|
|000003f0| 87 22 20 5b 73 65 74 2d | 65 78 74 65 6e 74 2d 65 |." [set-|extent-e|
|00000400| 6e 64 70 6f 69 6e 74 73 | 20 65 78 74 65 6e 74 20 |ndpoints| extent |
|00000410| 73 74 61 72 74 20 65 6e | 64 5d 20 34 5d 5d 20 33 |start en|d] 4]] 3|
|00000420| 29 29 29 5d 20 33 29 0a | 28 64 65 66 61 6c 69 61 |)))] 3).|(defalia|
|00000430| 73 20 27 65 6e 61 62 6c | 65 2d 69 6e 76 69 73 69 |s 'enabl|e-invisi|
|00000440| 62 6c 65 20 27 28 6d 61 | 63 72 6f 20 2e 20 23 5b |ble '(ma|cro . #[|
|00000450| 6e 69 6c 20 22 c0 87 22 | 20 5b 6e 69 6c 5d 20 31 |nil ".."| [nil] 1|
|00000460| 5d 29 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 65 |])).(def|alias 'e|
|00000470| 6e 64 2d 6f 66 2d 69 6e | 76 69 73 69 62 6c 65 20 |nd-of-in|visible |
|00000480| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 6e 69 6c 20 |'(macro |. #[nil |
|00000490| 22 c0 87 22 20 5b 6e 69 | 6c 5d 20 31 5d 29 29 0a |".." [ni|l] 1])).|
|000004a0| 28 64 65 66 61 6c 69 61 | 73 20 27 69 6e 76 69 73 |(defalia|s 'invis|
|000004b0| 69 62 6c 65 2d 72 65 67 | 69 6f 6e 20 23 5b 28 73 |ible-reg|ion #[(s|
|000004c0| 74 61 72 74 20 65 6e 64 | 29 20 22 8a 08 62 88 67 |tart end|) "..b.g|
|000004d0| 29 c1 61 ab 83 08 54 10 | c2 08 0b c4 c5 24 87 22 |).a...T.|.....$."|
|000004e0| 20 5b 73 74 61 72 74 20 | 3f 5c 6e 20 70 75 74 2d | [start |?\n put-|
|000004f0| 74 65 78 74 2d 70 72 6f | 70 65 72 74 79 20 65 6e |text-pro|perty en|
|00000500| 64 20 69 6e 76 69 73 69 | 62 6c 65 20 74 5d 20 35 |d invisi|ble t] 5|
|00000510| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 76 69 |]).(defa|lias 'vi|
|00000520| 73 69 62 6c 65 2d 72 65 | 67 69 6f 6e 20 23 5b 28 |sible-re|gion #[(|
|00000530| 73 74 61 72 74 20 65 6e | 64 29 20 22 c0 09 5c 6e |start en|d) "..\n|
|00000540| c3 c4 24 87 22 20 5b 70 | 75 74 2d 74 65 78 74 2d |..$." [p|ut-text-|
|00000550| 70 72 6f 70 65 72 74 79 | 20 73 74 61 72 74 20 65 |property| start e|
|00000560| 6e 64 20 69 6e 76 69 73 | 69 62 6c 65 20 6e 69 6c |nd invis|ible nil|
|00000570| 5d 20 35 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 5]).(d|efalias |
|00000580| 27 69 6e 76 69 73 69 62 | 6c 65 2d 70 20 23 5b 28 |'invisib|le-p #[(|
|00000590| 70 6f 73 29 20 22 8a 08 | 62 88 67 29 c1 61 ab 83 |pos) "..|b.g).a..|
|000005a0| 08 54 10 c2 08 c3 5c 22 | 87 22 20 5b 70 6f 73 20 |.T....\"|." [pos |
|000005b0| 3f 5c 6e 20 67 65 74 2d | 74 65 78 74 2d 70 72 6f |?\n get-|text-pro|
|000005c0| 70 65 72 74 79 20 69 6e | 76 69 73 69 62 6c 65 5d |perty in|visible]|
|000005d0| 20 33 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 3]).(de|falias '|
|000005e0| 6e 65 78 74 2d 76 69 73 | 69 62 6c 65 2d 70 6f 69 |next-vis|ible-poi|
|000005f0| 6e 74 20 23 5b 28 70 6f | 73 29 20 22 8a 8a 08 62 |nt #[(po|s) "...b|
|00000600| 88 67 29 c1 61 ab 83 08 | 54 10 c2 08 c3 5c 22 ae |.g).a...|T....\".|
|00000610| 81 64 29 87 22 20 5b 70 | 6f 73 20 3f 5c 6e 20 6e |.d)." [p|os ?\n n|
|00000620| 65 78 74 2d 73 69 6e 67 | 6c 65 2d 70 72 6f 70 65 |ext-sing|le-prope|
|00000630| 72 74 79 2d 63 68 61 6e | 67 65 20 69 6e 76 69 73 |rty-chan|ge invis|
|00000640| 69 62 6c 65 5d 20 33 5d | 29 0a 28 62 79 74 65 2d |ible] 3]|).(byte-|
|00000650| 63 6f 64 65 20 22 c0 c1 | 21 ac 82 c2 11 c1 0b 42 |code "..|!......B|
|00000660| 13 c0 c4 21 ac 82 c5 14 | c4 0b 42 13 c0 c6 21 ac |...!....|..B...!.|
|00000670| 83 c7 16 06 c6 0b 42 13 | c8 c9 21 ac 84 c9 ca 4d |......B.|..!....M|
|00000680| 88 c0 87 22 20 5b 62 6f | 75 6e 64 70 20 6d 6f 75 |..." [bo|undp mou|
|00000690| 73 65 2d 62 75 74 74 6f | 6e 2d 31 20 62 75 74 74 |se-butto|n-1 butt|
|000006a0| 6f 6e 31 20 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |on1 curr|ent-load|
|000006b0| 2d 6c 69 73 74 20 6d 6f | 75 73 65 2d 62 75 74 74 |-list mo|use-butt|
|000006c0| 6f 6e 2d 32 20 62 75 74 | 74 6f 6e 32 20 6d 6f 75 |on-2 but|ton2 mou|
|000006d0| 73 65 2d 62 75 74 74 6f | 6e 2d 33 20 62 75 74 74 |se-butto|n-3 butt|
|000006e0| 6f 6e 33 20 66 62 6f 75 | 6e 64 70 20 64 69 72 65 |on3 fbou|ndp dire|
|000006f0| 64 2d 6f 74 68 65 72 2d | 66 72 61 6d 65 20 23 5b |d-other-|frame #[|
|00000700| 28 64 69 72 6e 61 6d 65 | 20 26 6f 70 74 69 6f 6e |(dirname| &option|
|00000710| 61 6c 20 73 77 69 74 63 | 68 65 73 29 20 22 c0 c1 |al switc|hes) "..|
|00000720| 5c 6e 0b 5c 22 21 87 22 | 20 5b 73 77 69 74 63 68 |\n.\"!."| [switch|
|00000730| 2d 74 6f 2d 62 75 66 66 | 65 72 2d 6f 74 68 65 72 |-to-buff|er-other|
|00000740| 2d 66 72 61 6d 65 20 64 | 69 72 65 64 2d 6e 6f 73 |-frame d|ired-nos|
|00000750| 65 6c 65 63 74 20 64 69 | 72 6e 61 6d 65 20 73 77 |elect di|rname sw|
|00000760| 69 74 63 68 65 73 5d 20 | 34 20 22 5c 22 45 64 69 |itches] |4 "\"Edi|
|00000770| 74 5c 22 20 64 69 72 65 | 63 74 6f 72 79 20 44 49 |t\" dire|ctory DI|
|00000780| 52 4e 41 4d 45 2e 20 20 | 4c 69 6b 65 20 60 64 69 |RNAME.  |Like `di|
|00000790| 72 65 64 27 20 62 75 74 | 20 6d 61 6b 65 73 20 61 |red' but| makes a|
|000007a0| 20 6e 65 77 20 66 72 61 | 6d 65 2e 22 20 28 64 69 | new fra|me." (di|
|000007b0| 72 65 64 2d 72 65 61 64 | 2d 64 69 72 2d 61 6e 64 |red-read|-dir-and|
|000007c0| 2d 73 77 69 74 63 68 65 | 73 20 22 69 6e 20 6f 74 |-switche|s "in ot|
|000007d0| 68 65 72 20 66 72 61 6d | 65 20 22 29 5d 5d 20 32 |her fram|e ")]] 2|
|000007e0| 29 0a 23 40 36 34 20 43 | 6f 6e 76 65 72 74 20 6c |).#@64 C|onvert l|
|000007f0| 69 73 74 20 6f 66 20 63 | 68 61 72 61 63 74 65 72 |ist of c|haracter|
|00000800| 20 43 48 41 52 2d 4c 49 | 53 54 20 74 6f 20 73 74 | CHAR-LI|ST to st|
|00000810| 72 69 6e 67 2e 20 5b 65 | 6d 75 2d 78 65 6d 61 63 |ring. [e|mu-xemac|
|00000820| 73 2e 65 6c 5d 1f 0a 28 | 64 65 66 61 6c 69 61 73 |s.el]..(|defalias|
|00000830| 20 27 63 68 61 72 2d 6c | 69 73 74 2d 74 6f 2d 73 | 'char-l|ist-to-s|
|00000840| 74 72 69 6e 67 20 27 28 | 6d 61 63 72 6f 20 2e 20 |tring '(|macro . |
|00000850| 23 5b 28 63 68 61 72 2d | 6c 69 73 74 29 20 22 c0 |#[(char-|list) ".|
|00000860| c1 5c 6e c3 42 42 42 87 | 22 20 5b 6d 61 70 63 6f |.\n.BBB.|" [mapco|
|00000870| 6e 63 61 74 20 28 66 75 | 6e 63 74 69 6f 6e 20 63 |ncat (fu|nction c|
|00000880| 68 61 72 2d 74 6f 2d 73 | 74 72 69 6e 67 29 20 63 |har-to-s|tring) c|
|00000890| 68 61 72 2d 6c 69 73 74 | 20 28 22 22 29 5d 20 34 |har-list| ("")] 4|
|000008a0| 20 28 23 24 20 2e 20 32 | 30 32 33 29 5d 29 29 0a | (#$ . 2|023)])).|
|000008b0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 c3 |(byte-co|de "....|
|000008c0| c4 5c 22 5c 22 ac 84 c2 | c5 4d 88 c6 c7 21 87 22 |.\"\"...|.M...!."|
|000008d0| 20 5b 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 | [string|-match "|
|000008e0| 5e 2e 2e 2f 22 20 66 69 | 6c 65 2d 72 65 6c 61 74 |^../" fi|le-relat|
|000008f0| 69 76 65 2d 6e 61 6d 65 | 20 22 2f 75 73 72 2f 6c |ive-name| "/usr/l|
|00000900| 6f 63 61 6c 2f 73 68 61 | 72 65 22 20 22 2f 75 73 |ocal/sha|re" "/us|
|00000910| 72 2f 6c 6f 63 61 6c 2f | 6c 69 62 22 20 23 5b 28 |r/local/|lib" #[(|
|00000920| 66 69 6c 65 6e 61 6d 65 | 20 26 6f 70 74 69 6f 6e |filename| &option|
|00000930| 61 6c 20 64 69 72 65 63 | 74 6f 72 79 29 20 22 c0 |al direc|tory) ".|
|00000940| 09 21 11 c2 c0 0b ae 81 | 0c 21 21 13 c5 1e 06 c7 |.!......|.!!.....|
|00000950| c8 c9 0b 21 50 09 5c 22 | ac 8f ca 0b cb cc 4f 21 |...!P.\"|......O!|
|00000960| 13 cd 0e 06 50 16 06 aa | 67 0e 06 09 cb 95 ce 4f |....P...|g......O|
|00000970| 50 29 87 22 20 5b 65 78 | 70 61 6e 64 2d 66 69 6c |P)." [ex|pand-fil|
|00000980| 65 2d 6e 61 6d 65 20 66 | 69 6c 65 6e 61 6d 65 20 |e-name f|ilename |
|00000990| 66 69 6c 65 2d 6e 61 6d | 65 2d 61 73 2d 64 69 72 |file-nam|e-as-dir|
|000009a0| 65 63 74 6f 72 79 20 64 | 69 72 65 63 74 6f 72 79 |ectory d|irectory|
|000009b0| 20 64 65 66 61 75 6c 74 | 2d 64 69 72 65 63 74 6f | default|-directo|
|000009c0| 72 79 20 22 22 20 61 6e | 63 65 73 74 6f 72 20 73 |ry "" an|cestor s|
|000009d0| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 5e 22 20 |tring-ma|tch "^" |
|000009e0| 72 65 67 65 78 70 2d 71 | 75 6f 74 65 20 66 69 6c |regexp-q|uote fil|
|000009f0| 65 2d 6e 61 6d 65 2d 64 | 69 72 65 63 74 6f 72 79 |e-name-d|irectory|
|00000a00| 20 30 20 2d 31 20 22 2e | 2e 2f 22 20 6e 69 6c 5d | 0 -1 ".|./" nil]|
|00000a10| 20 34 20 22 43 6f 6e 76 | 65 72 74 20 46 49 4c 45 | 4 "Conv|ert FILE|
|00000a20| 4e 41 4d 45 20 74 6f 20 | 62 65 20 72 65 6c 61 74 |NAME to |be relat|
|00000a30| 69 76 65 20 74 6f 20 44 | 49 52 45 43 54 4f 52 59 |ive to D|IRECTORY|
|00000a40| 5c 6e 28 64 65 66 61 75 | 6c 74 3a 20 64 65 66 61 |\n(defau|lt: defa|
|00000a50| 75 6c 74 2d 64 69 72 65 | 63 74 6f 72 79 29 2e 20 |ult-dire|ctory). |
|00000a60| 5b 65 6d 75 2d 78 65 6d | 61 63 73 2e 65 6c 5d 22 |[emu-xem|acs.el]"|
|00000a70| 5d 20 70 72 6f 76 69 64 | 65 20 65 6d 75 2d 78 65 |] provid|e emu-xe|
|00000a80| 6d 61 63 73 5d 20 35 29 | 0a                      |macs] 5)|.       |
+--------+-------------------------+-------------------------+--------+--------+